PC Professionell 2006 May/PCpro_2006_05.ISO/files/mobile/fma-2.0-stable-setup.exe/{app}/source/uSIMEdit.dfm

Text File | 2004-07-01 | 6.7 KB | 245 lines

object frmSIMEdit: TfrmSIMEdit
  Left = 0
  Top = 0
  Width = 795
  Height = 319
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  Visible = False
  DesignSize = (
    795
    319)
  object Panel1: TPanel
    Left = 0
    Top = 286
    Width = 795
    Height = 33
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    Visible = False
    object btnUpdateSIM: TButton
      Left = 8
      Top = 4
      Width = 75
      Height = 25
      Caption = 'Update SIM'
      TabOrder = 0
      OnClick = btnUpdateSIMClick
    end
    object cbForce: TCheckBox
      Left = 92
      Top = 9
      Width = 109
      Height = 17
      Caption = 'Force update all'
      TabOrder = 1
    end
    object btnReset: TButton
      Left = 200
      Top = 4
      Width = 105
      Height = 25
      Caption = 'Reset change flaq'
      TabOrder = 2
      OnClick = btnResetClick
    end
  end
  object ListNumbers: TVirtualStringTree
    Left = 0
    Top = 0
    Width = 795
    Height = 286
    Align = alClient
    DefaultNodeHeight = 17
    DragMode = dmAutomatic
    Header.AutoSizeIndex = -1
    Header.Font.Charset = ANSI_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'Arial Unicode MS'
    Header.Font.Style = []
    Header.Height = 20
    Header.MainColumn = 1
    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoHotTrack, hoShowImages, hoShowSortGlyphs, hoVisible]
    Header.SortColumn = 1
    Header.Style = hsFlatButtons
    HintAnimation = hatNone
    HintMode = hmTooltip
    Images = Form1.ImageList4
    IncrementalSearch = isInitializedOnly
    IncrementalSearchTimeout = 500
    Indent = 0
    LineMode = lmBands
    PopupMenu = PopupMenu1
    TabOrder = 1
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoSpanColumns, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages]
    TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
    OnAfterPaint = ListNumbersAfterPaint
    OnCompareNodes = ListNumbersCompareNodes
    OnDblClick = btnEDITClick
    OnGetText = ListNumbersGetText
    OnGetImageIndex = ListNumbersGetImageIndex
    OnHeaderClick = ListNumbersHeaderClick
    OnHeaderMouseUp = ListNumbersHeaderMouseUp
    OnIncrementalSearch = ListNumbersIncrementalSearch
    OnKeyDown = ListNumbersKeyDown
    Columns = <
      item
        Alignment = taRightJustify
        Options = [coAllowClick, coDraggable, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible]
        Position = 0
        WideText = 'Pos'
      end
      item
        Position = 1
        Width = 250
        WideText = 'Contact name'
      end
      item
        Position = 2
        Width = 180
        WideText = 'Number'
      end
      item
        Position = 3
        Width = 100
        WideText = 'Type'
      end
      item
        Position = 4
        Width = 211
        WideText = 'Status'
      end>
  end
  object NoItemsPanel: TPanel
    Left = 6
    Top = 24
    Width = 783
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    Caption =
      'There are no items to display in this view. Did you refresh the ' +
      'folder?'
    Color = clWindow
    TabOrder = 2
  end
  object PopupMenu1: TPopupMenu
    Images = Form1.ImageList2
    OnPopup = PopupMenu1Popup
    Left = 64
    Top = 64
    object NewPerson1: TMenuItem
      Action = Form1.ActionContactsNewPerson
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object MessageContact1: TMenuItem
      Action = Form1.ActionContactsNewMsg
    end
    object CallContact1: TMenuItem
      Action = Form1.ActionContactsVoiceCall
    end
    object ChatContact1: TMenuItem
      Action = Form1.ActionContactsNewChat
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Resetchangeflag1: TMenuItem
      Caption = 'Force as Not Modified'
      OnClick = Resetchangeflag1Click
    end
    object UpdateContactsPosition1: TMenuItem
      Caption = 'Reindex (Sort) All Contacts...'
      OnClick = UpdateContactsPosition1Click
    end
    object UpdateContactsfromPhonebook1: TMenuItem
      Caption = 'Copy All from Phonebook to SIM...'
      OnClick = UpdateContactsfromPhonebook1Click
    end
    object SendAllContactstoPhonebook1: TMenuItem
      Caption = 'Copy All from SIM to Phonebook...'
      OnClick = SendAllContactstoPhonebook1Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object SendToPhone1: TMenuItem
      Caption = 'Send To Phone'
      object UpdateChanged1: TMenuItem
        Caption = 'Modified Contacts...'
        OnClick = UpdateChanged1Click
      end
      object UpdateAllRecords1: TMenuItem
        Caption = 'All Contacts...'
        OnClick = UpdateAllRecords1Click
      end
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object DownloadEntirePhonebook1: TMenuItem
      Caption = 'Download Entire Phonebook...'
      ImageIndex = 1
      OnClick = DownloadEntirePhonebook1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Clear1: TMenuItem
      Action = Form1.ActionDelete
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object ImportContacts1: TMenuItem
      Caption = 'Import Contacts...'
      OnClick = ImportContacts1Click
    end
    object ExportContacts1: TMenuItem
      Action = Form1.ActionContactsExportSM
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Properties1: TMenuItem
      Caption = '&Properties'
      ImageIndex = 10
      OnClick = btnEDITClick
    end
  end
  object FormStorage1: TFormStorage
    IniFileName = 'Software\floAt'
    IniSection = 'SM'
    Options = []
    UseRegistry = True
    OnSavePlacement = FormStorage1SavePlacement
    OnRestorePlacement = FormStorage1RestorePlacement
    StoredValues = <
      item
        Name = 'ListHeader'
        Value = ''
      end>
    Left = 28
    Top = 64
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.vcf'
    Filter = 'vCard Files (*.vcf)|*.vcf|All Files|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Title = 'Import Contacts...'
    Left = 100
    Top = 64
  end
end